home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TOT_2.ARJ
/
DEMO.EXE
/
arc
/
DEMDR6.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
734b
|
31 lines
program DemoDirSix;
{demdr6 - customizing the directory dialog box}
Uses DOS, CRT,
totFAST, totDir, totIO1;
Var
DirWin: DirWinObj;
Result: tAction;
begin
Screen.Clear(white,'░'); {paint the screen}
with DirWin do
begin
Init;
SetFileDetails('','*.EXE *.COM *.BAT',AnyFile);
SetSortDetails(2,true);
Win^.SetColors(15,15,15,15);
IOTOT^.SetColLabel(15,15,15,15);
IOTOT^.SetColList(7,7,112,112);
IOTOT^.SetColField(7,112,8,8);
IOTOT^.SetColButton(112,127,127,127);
Result := Go;
if Result = Finished then
writeln('You chose file: ',GetChosenFile)
else
writeln('You escaped!');
Done;
end;
end.